﻿<!--#include file="conn.asp"#-->
<!--#include file="sessao.asp"#-->
<!--#include file="getsessao.asp"#-->
<!--#include file="fn_combo.asp"#-->
<!--#include file="fn_table.asp"#-->
<%
Select Case request("acao")
	Case "getCargos"
		getCargos()
	Case "getEditarCargo"
		getEditarCargo()
	Case "getStatus"
		getStatus()		
End Select

Sub getCargos()
	Dim db_string
	db_string = "select c.desc_cargo as [Cargo], "
	db_string = db_string & " t.desc_tipo as [Tipo],"
	db_string = db_string & " sc.desc_status as [Status],"
	db_string = db_string & " '<a href=''#'' class=''botao ico'' onclick=''return getEditarCargo('+convert(varchar,c.cod_cargo)+');''><span class=''edit''></span></a> ' "
	db_string = db_string & " as [Ações] "
	db_string = db_string & " from informacao.tb_cargos as c "
	db_string = db_string & " inner join informacao.tb_usuario_tipo as t on t.cod_usuario_tipo=c.cod_usuario_tipo "
	db_string = db_string & " inner join informacao.tb_status_cargo as sc on sc.cod_status_cargo = c.cod_status_cargo "

	db_string = db_string & " where 1=1 "
	if request("nome") <> "" then
		db_string = db_string & " and (c.desc_cargo like '%"&request("nome")&"%' "
		db_string = db_string & " or t.desc_tipo like '%"&request("nome")&"%') "
	end if

	Dim pg_sel
	if request("pg_sel") = "" then
		pg_sel = 1
	else
		pg_sel = cdbl(request("pg_sel"))
	end if

	response.write Table("list", db_string, "tabela", true, pg_sel, 10, "getCargos(!@#)")	
End Sub

Sub getStatus()
	Dim db_string
	db_string = " SELECT * FROM informacao.tb_status_cargo ORDER BY desc_status "
	retorno  = fn_combo(db_string,true,"")
	response.write retorno
End Sub


Sub getEditarCargo()
	Dim db_string
	Dim rsCargo
	if request("cod_cargo") <> "" then
		db_string = " select c.cod_cargo, c.desc_cargo,c.cod_status_cargo, sc.desc_status,c.cod_usuario_tipo"
		db_string = db_string & " FROM informacao.tb_cargos AS c "
		db_string = db_string & " INNER JOIN informacao.tb_status_cargo AS sc "
		db_string = db_string & " 	ON sc.cod_status_cargo = c.cod_status_cargo "
		db_string = db_string & " where c.cod_cargo="&request("cod_cargo")
		set rsCargo = getRs(db_string)
		if not rsCargo.eof then
			retorno = "{success : true, data: {"
		    retorno = retorno & "'nome':'"&rsCargo("desc_cargo")&"' ,"
		    retorno = retorno & "'cod_usuario_tipo':'"&rsCargo("cod_usuario_tipo")&"' ,"
		    retorno = retorno & "'cod_cargo':'"&rsCargo("cod_cargo")&"' ,"
		    retorno = retorno & "'desc_status':'"&rsCargo("desc_status")&"' ,"
		    retorno = retorno & "'cod_status':'"&rsCargo("cod_status_cargo")&"' }"
			retorno = retorno & "}"
		End If
		rsCargo.close
	End If
	set rsCargo = nothing
	response.write retorno
End Sub


%>